home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n15.arc / SALDETL < prev    next >
Text File  |  1991-08-09  |  920b  |  29 lines
  1. *****************************************
  2. PROCEDURE SALDETL      && Detail record handler
  3. *****************************************
  4. *-- Any record selection criteria should be added to the next statement
  5. SCAN
  6.    mLastRec = mCurRec
  7.    mCurRec = RECNO()
  8.    IF FirstPass        && If first pass
  9.       DO SALGRHD1      && Do group header
  10.       DO SALINIT       && Initialize variables
  11.       FirstPass = .F.
  12.    ENDIF
  13.    DO SALGRP1          && Check for break processing
  14.    IF _Plineno > mPLength - mBotMarg  - 5
  15.       DO SALNEWPG      && Start new page
  16.    ENDIF
  17.    mSQUANT1 = mSQUANT1 + SALES->QUANTITY
  18.  
  19.    ?? SALES->ORDER_NO FUNCTION "V8" AT 1
  20.    ?? SALES->DIVISION FUNCTION "V10" AT 11
  21.    ?? SALES->REGION FUNCTION "V2" AT 24
  22.    ?? SALES->ORDER_DATE FUNCTION "V8" AT 32
  23.    ?? SALES->QUANTITY FUNCTION "V10" AT 42
  24.    ?? SALES->PRODUCT FUNCTION "V10" AT 54
  25.    ?
  26. ENDSCAN
  27. mLastRec = mCurRec
  28. RETURN
  29.